home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9405a.d64 / goto x (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  172b  |  13 lines
  1. 8 REM USR-VEKTOR
  2. 9 :
  3. 10 POKE785,163:POKE786,168
  4. 11 :
  5. 18 REM GOTO X
  6. 19 :
  7. 20 X=40+INT(RND(0)*3)*10
  8. 30 SYS47083(X),USR(0)
  9. 39 :
  10. 40 PRINT"40  ";:GOTO20
  11. 50 PRINT"50  ";:GOTO20
  12. 60 PRINT"60  ";:GOTO20
  13.